Mac100% 1999 April/MAC100-1999-04.ISO.7z/MAC100-1999-04.ISO/ｵﾝﾗｲﾝｿﾌﾄ定点観測/Text/FireWrite.sit/FireWrite v1.04 [Fixed]/おまけフォルダ/TEXT-ttro改 v1.2/Script.txt

Text File | 1999-01-01 | 3KB | 58 lines

--スクリプト言語を「AppleScript 英語」にすると快適です(僕の環境では)。
--このTEXT-ttroは丸　雅宏( [e-mail] )に著作権があります。
--スクリプトは一部分なら真似しても構いません。真似する人がいるかどうかは別として。

--このスクリプトの使用には、システムは漢字Talk 7.5以上で、AppleScriptが使える環境でないと使えません。
--(漢字Talk 7.1.2でも、AppleScriptは使えるようですが、TEXT-ttro改は動きません)

--objectListは、ドラッグされたアイテムのリスト
--repeatListは、objectListの中の１つのアイテム。repeat構文で使用。
--errorTextは、エラー時の警告文章（例：A resource wasn't found.）。try〜on errorで使用。
--errorNumは、エラー時のエラー番号（例：-192）。try〜on errorで使用。

on open objectList
    tell application "Finder"
        repeat with repeatList in objectList
            if file (repeatList as string) exists then
                try
                    if file type of repeatList = "ttro" then
                        set creator type of repeatList to "ttxt"
                        set file type of repeatList to "TEXT"
                    else if file type of repeatList = "TEXT" then
                        set creator type of repeatList to "ttxt"
                        set file type of repeatList to "ttro"
                    else
                        display dialog name of repeatList & "はファイルタイプがTEXTまたはttroではありません。" buttons "OK" default button "OK" with icon 2
                    end if
                on error errorText number errorNumber
                    if errorNum ｭ -128 then --[-128]のエラーコードはユーザーが「キャンセル」ボタンを押したときである。
                        display dialog "エラーが起きました。[" & errorText & "] (" & errorNumber & ")" buttons "OK" default button "OK" with icon 2
                    end if
                end try
            else
                display dialog name of repeatList & "はフォルダのためファイルタイプを変更することはできません。" buttons "OK" default button "OK" with icon 2
            end if
        end repeat
    end tell
end open

on run
    set objectList to (choose file of type {"TEXT", "ttro"})
    tell application "Finder"
        try
            if file type of objectList = "ttro" then
                set creator type of objectList to "ttxt"
                set file type of objectList to "TEXT"
            else if file type of objectList = "TEXT" then
                set creator type of objectList to "ttxt"
                set file type of objectList to "ttro"
            else
                display dialog name of repeatList & "はファイルタイプがTEXTまたはttroではありません。" buttons "OK" default button "OK" with icon 2
            end if
        on error errorText number errorNumber
            if errorNum ｭ -128 then --[-128]のエラーコードはユーザーが「キャンセル」ボタンを押したときである。
                display dialog "エラーが起きました。[" & errorText & "] (" & errorNumber & ")" buttons "OK" default button "OK" with icon 2
            end if
        end try
    end tell
end run